﻿Public Class CFactorUDI
    Private _dtmFecha As Date
    Private _dblValor As Double

    Public Sub New(ByVal dtmFecha As Date, ByVal dblValor As Double)
        Fecha = dtmFecha
        Valor = dblValor
    End Sub

    Public Sub New()
    End Sub

    Public Property Fecha As Date
        Get
            Fecha = Me._dtmFecha
        End Get
        Set(value As Date)
            Me._dtmFecha = value
        End Set
    End Property

    Public Property Valor As Double
        Get
            Valor = Me._dblValor
        End Get
        Set(value As Double)
            Me._dblValor = value
        End Set
    End Property
End Class
